Top 10k strings from Utilidades 1 (1984)(Microparadise Software)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Various - [TZX] (TOSEC-v2006-06-06) /
Back to the directory listing
8 ;"____________":
5
4
3 MC
3 ;" Pulsar
3 para acceder al indice"
2 PULSA EL NUMERO DEL PROGRAMA
2 ;N;"-";A$(N);" ";B$(N):
2 ;"ESPERA UN MOMENTO"
2 ;"EL NUMERO QUE HAS ESCRITO NO ES HEXADECIMAL. PRUEBA OTRA VEZ":
2 ;"CARGANDO ";B$(NUM)
2 ;" PULSE UNA TECLA PARA CONTINUAR "
2 ;" UTILIDADES 1 - Indice "
2 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
2 );" bytes"
2 "ALTURA : ";YP:
2 -- Pulsar '
2
1 z;'''"nombre: ";
1 z;"Numero del contador: ";
1 xcv X
1 x,z;"Numero cinta: ";
1 x$=x$+" ":
1 wipe lower window
1 w$="05678RCBXQHP":
1 unpack=300
1 tapefile
1 t$="0"+t$:
1 pack character
1 p$="dato":
1 p$="Numero del contador":
1 p$="Numero de la cinta":
1 p$="Nombre del fichero":
1 p$="Cual desea buscar":
1 p$="Cinta que desea listar":
1 p$="Cinta que desea borrar":
1 p$="Borra? - 'si' para confirmar":
1 n$=d$(c,n1
1 n$(x)=e$(1
1 musica
1 move cursor
1 mc f
1 maintain internal picture
1 line input
1 let z=instr(w$,a$)
1 lado L
1 input a string
1 il-a,z;" ";
1 il,ic;(p$);": ";#a;
1 il+a,z;"no esta en el fichero":
1 header
1 f$=f$+b$(n,k):
1 e$(i,n)="1")
1 e$(i,n)="0")+("
1 draw existing pattern
1 draw cursor
1 dirtel musica dib carac lado l
1 dirtel F2Z
1 dib
1 delrec=700
1 delete an item
1 delete a cassette
1 delcass=800
1 dando la vuelta a los caracteres
1 d$=k$+l$+m$+n$+o$+p$+q$+r$+s$+t$+u$+v$+w$+x$+y$+z$:
1 d$="HEXADECIMAL":
1 d$="DECIMAL":
1 d$="BINARIO":
1 d$(i)=d$(i+p)
1 d$(i)=d$(i+a):
1 cy=cy-dy*8
1 cx=cx+dx*8
1 create data statements
1 create array
1 conver z
1 cloner
1 change=600
1 carac
1 c$=c$+(" "
1 b$;b$;b$;b$;b$;"(";d$(i,
1 a;"todas las cintas"
1 a;"numero del dato ";c;" Total: ";u;
1 a;"cinta ";i$
1 a;"cinta ";c$;" contador ";t$;
1 a;"Pulse una tecla ":
1 a;"Pare la cinta y pulse una tecla":
1 a;"Para trabajar con su fichero, este debe tener al menos un registro"
1 a;"Es correcto (S/N) ?"
1 a;"Contenido de ";:
1 a;"Cintas en el fichero:";
1 a;"A=ENTRADA D=BORRAR F=BUSCAR C=CAMBIAR L=LISTAR CONTENIDO T=LISTAR CINTAS S=SALVAR FICH. X=BORRAR CINTA Q=FIN"
1 a;" Cintas "
1 a$=e$+" Que letra? ":
1 a$="Quiere grabar los caracteres?":
1 a$="Quiere cambiar alguno? ":
1 a$="Nombre para grabar?:":
1 a$(s)>117
1 a$(s);"No es un caracter definible":
1 _____________INDICE_____________
1 _________GRABACION DATOS________
1 ________LISTA DIRECCIONES_______
1 ________LISTA DE NOMBRES________
1 ________FICHERO DE DATOS________
1 _Num_____NOMBRE Y APELLIDOS_____
1 UT12
1 UT11
1 Print current set
1 MICROPARADISE
1 MC ,
1 MAL-DECIMAL-BINARIO **
1 M-22387-840
1 Listin telefonico Organo Arabescos Def. caracteres Rotulos printer
1 LOAD ""dirtel""
1 LISTA DIRECCIONES
1 LISTA DE NOMBRES
1 LG c
1 Juego de caracteres actual
1 INTRODUCE NUMERO DE TELEFONO
1 INTRODUCE NUMERO DE ORDEN
1 INTRODUCE NOMBRE Y APELLIDOS
1 INTRODUCE EL NOMBRE Y APELLIDOS DE LA PERSONA CUYA DIRECCION DESEAS CONOCER TAL COMO FIGURA EN EL FICHERO DE DATOS
1 INTRODUCE DIRECCION POSTAL
1 INTRODUCE CIUDAD Y D.P
1 IMAL - BINARIO **
1 GRABACION DATOS
1 FICHERO DE DATOS
1 ESTA TODO CORRECTO ?
1 ECIMAL - DECIMAL **
1 DB=DB+Q*P:
1 Cual desea buscarI
1 COCO f
1 C 4
1 ARIO - DECIMAL **
1 AL - HEXADECIMAL **
1 A$="0000000000000000"
1 ;"_____ ________"
1 ;"X=term. B=Borrar "'"R=Inv. linea C=Inv. colum. "'"0=Fijar 5,6,7,8=cursor"'"Q=Dejar igual H=Sin cursor "'"P=Impresora"
1 ;"Tecla Caracter"
1 ;"TIPO: ";
1 ;"Sentencias DATA:"
1 ;"Pulse tecla (P=impresora)"
1 ;"PULSE UNA TECLA PARA EMPEZAR":
1 ;"PULSE UNA TECLA PARA EMPEZAR"
1 ;"NUMERO BINARIO ? ";A$
1 ;"Caracter actual : ";a$
1 ;"COMENZAMOS ?":
1 ;"AHORA EL TECLADO ES UN PIANO"
1 ;" Una vez iniciado, adjudicar un numero (del 1 al 90) a cada direccion y seguir instrucciones"
1 ;" NO PUEDEN INTRODUCIRSE NUMEROS CON MAS DE CUATRO CARACTERES ":
1 ;" NO PUEDEN INTRODUCIRSE NUMEROS SUPERIORES A 65535":
1 ;" Seguir instrucciones una vez iniciada esta fase"
1 ;" PULSE UNA TECLA PARA EMPEZAR "
1 ;" PULSE PLAY Y DE A UNA TECLA "
1 ;" PARA ELLO, DEBES INTRODUCIR PRIMERO LA BASE (H,D o B) Y A CONTINUACION EL NUMERO QUE DESEAS CONVERTIR"
1 ;" EL NUMERO QUE HAS INTRODUCIDO NO ES BINARIO.PRUEBA OTRA VEZ":
1 ;" ";e$(1
1 ;" SOLO SE ADMITEN NUMEROS BINARIOS DE HASTA 16 DIGITOS ":
1 ;" NO PUEDEN INTRODUCIRSE NUMEROS FRACCIONARIOS ":
1 ;" NO PUEDEN INTRODUCIRSE NUMEROS NEGATIVOS ":
1 ;" ESTE PROGRAMA CONVIERTE NUMEROS HEXADECIMALES, DECIMALES Y BINARIOS."
1 2 45 1 P
1 00000000C
1 0000000001111100000100100001001000010010000100100111110000000000F
1 0000000000111100010000100100001001111110010000100100001000000000
1 ,z;"no hay sitio para mas cintas":
1 ,z;"Entre nueva cinta. Pulse ENTER para terminar"
1 ,z;"Datos a cambiar:"'
1 **LETRAS GIGANTES**
1 ** CONVERSION HEXADECI
1 ** CONVERSION HEXAD
1 ** CONVERSION DECIM
1 ** CONVERSION DEC
1 ** CONVERSION BIN
1 )="tapefile":
1 )="musica":
1 )="header":
1 )="dirtel":
1 )="conver":
1 )="cloner":
1 )="carac":
1 )="Rotulos printer"
1 )="Organo":
1 )="Listin telefonico":
1 )="Letras Gigantes"
1 )="Lector de cabeceras":
1 )="Def. caracteres":
1 )="Copiador":
1 )="Conversion de base":
1 )="Archivo de Cintas":
1 )="Arabescos":
1 )="00000000"
1 (maximo 30 caracteres)
1 (maximo 26 caracteres)
1 (maximo 20 caracteres)
1 (maximo 10 caracteres)
1 (de 1 a 90)
1 (ABANDONAR PULSANDO UNA TECLA)
1 ''"Este programa sirve para crear un archivo de sus cintas, tanto de programas como de video o musica"
1 '"DATA """;a$;""",";
1 ' para obtener el listado"
1 ' para obtener direcciones"
1 ' para grabar programa y datos"
1 ' para acceder al fichero"
1 "y-posicion?";y:
1 "x-posicion?";x:
1 "s-Fin de programa"
1 "d-Salvar programa sin cabecera"
1 "conversion"
1 "convercode"
1 "c-Salvar programa con cabecera"
1 "b-Cargar programa sin cabecera"
1 "a-Cargar programa con cabecera"
1 "SOLO CARGA":
1 "SEPARACION : ";S
1 "Paper?";p:
1 "Nombre de la matriz: ";
1 "NUMERO HEXADECIMAL ? ";H$
1 "NUMERO DECIMAL ? ";D
1 "NOMBRE: ";
1 "Matriz numerica"
1 "Matriz alfanumerica"
1 "Longitud: ";
1 "LONGITUD: ";
1 "LONGITUD TOTAL: ";
1 "LONGITUD DEL PROGRAMA: ";
1 "L.GIGANTES"
1 "FRASE : ";
1 "Este programa sirve para leer los datos existentes en las ca- beceras de los programas"
1 "Este programa crea grandes rotulos que pueden ser de cual- quier longitud, para su impre- sion en la printer ZX"
1 "ENTRAR MENSAJE > ";a$
1 "EJECUCION AUTOMATICA LINEA ";
1 "DIRECCION DE EMPIECE: ";
1 "Con este programa se pueden crear grandes rotulos en la pantalla. Introduzca los datos amedida que se le vayan pidiendo."''"Si despues de completar el rotulo desea modificarlo, pulse 2 para cambiar la frase o 3 paracambiar la altura"
1 "Con este programa podra generar vistosos graficos, con la ayuda de las teclas de cursor"
1 "Bright?";s:
1 "Border?";b:
1 "Base H D B ? (* STOP) ";B$
1 "ANCHO : ";xc:
1 "ALTO : ";YC:
1 " ";x;" ";n$(x)
1 " ":
1 "
1 para grabar el programa"
1 para comenzar";
1 para comenzar"
1 RUTINA DE GRABACION
1 --- Pulsar '
1 - Pulsar '
1 ** Por R. Bernardo **
1 (imagen)":
1 (en minusculas), ytanto el programa como los datos que ahora contenga correran automaticamente
1 para ver numeros 81-90
1 para ver numeros 71-80
1 para ver numeros 61-70
1 para ver numeros 51-60
1 para ver numeros 41-50
1 para ver numeros 31-40
1 para ver numeros 21-30
1 para ver numeros 11-20
1 para ver numeros 1-10
1 para acceder al indice
1 SUBRUTINA IMPRESION
1 NO FIGURA. REPASA EL LISTADO
1 LISTA DIRECCIONES
1 FICHERO DE DATOS
1 Cuando cargues el programa la proxima vez, introduce
1 1983 **
1 PROGRAMA PRINCIPAL
1 LISTA DE NOMBRES
1 LO SIENTO, PERO EL NOMBRE
1 (Pulsa cualquier tecla)
1 L
1
1
1